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SERVER REGISTERS NAMED 
INSTANCE IN RUNNING OBJECT 
TABLE. CLIENT USES RUNNING 
MONIKER TO LOCATE INSTANCE 
SPECIFIED BY MONIKER STRING 



-SlOO 



FIG. 1 



PARSE INPUT STRING UNTIL 
DELIMITER OR END OF 

STRING. SEARCH 
RUNNING OBJECT TABLE 
FOR NAMED INSTANCE 



-S102 
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NO 



CREATE POINTER MONIKER FROM NAMED 
OBJECT. DETERMINE IF THERE IS SOME 
STRING REMAINING TO PARSE 



■S105 
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RETURN FAILURE 
CODE TO CLIENT 




NO 



QUERY INTERFACE OBJECT 
FOR IParseDisplayName 
AND CALL THE METHOD 
ParseDisplayName WITH 
REMAINING STRING 
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RETURN POINTER 
MONIKER FOR OBJECT 
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n 



CREATE COMPOSITE MONIKER 
USING POINTER MONIKER FROM 
OBJECT AND RETURNED MONIKER 



RETURN FAILURE 
CODE TO CLIENT 
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RETURN COMPOSITE 
MONIKER TO CLIENT 
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Running, idl 

// Running. idl : IDL source for Running dll 
// 

// This file will be processed by the HIDL tool to 

// produce the type library (Running. tlb) and marshalling code. 

import "oaidl.idl'i 
import 'ocidl.idl'; 

[ 

object. 

uuid<E7531917-289D41D2-869F-080009DC2552} . 
dual, 

helpstring ("IRunning Interface") , 
pointer default (unique) 

1 

interface IRunning : IDispatch 
[ 

(id(l). helpstringCmethod RegisterlnstanceName")] HRESULT RegisterlnstanceName (BSTR bstr 
ItemName, IUnknown * pUnk. long * ICookie); 

(id(2), helpstringCmethod UnregisterlnstanceName") 1 HRESULT UnregisterlnstanceNamedong 

ICookie) ; 

); 

[ 

uuid (E7531908-283D- 11D2-8G9F-080009DC255?) . 
version(l.O) , 

helpstring ('Running 1.0 Type Library") 

1 

library RUNIINGLib 
I 

importlib("stdole32.tib , ) i 
importlibCstdole2.tib") : 

1 uuid(E753191B-289D-llD2-8B9F-0B0009DC2552) . 
helpstring ("Running Class") 

1 

coclass Running 
I 

[default] interface IRunning; 
interface IparseDisplayName : 
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FIG. 2B 

Running. rgs 



Running. 1 = s 'Running Class' 

( CLSID = s ' (E7531918-2B9D-11D2-8G9F-080009DC2552) ' 
Running = s "Running Class" 

CLSID = s 5 (E7531918-289D- 11D2-8B9F-080009DC2552) " 
NoRemove CLSID 

ForceRemove (E753 1918-289D- 11D2-8G3F-080009DC2552) = s 'Running Class' 

val AppID = s ' (E7531918-289D-11D2-8B9F-080009DC2552) ' 
ProgID = s 'Running. 1" 
VersionlndependantProgID = s 'Running' 
ForceRemove 'Programmable' 
InprocServer32 = s "%M0DULE%" ' 

val ThreadingModel = s 'Apartment* 



NoRemove AppID 
( 

NoRemove (E75319 18-289D- 11D2-8B9F-080009DC2552) - s 'Running Class' 
( 

val DllSurrogate ■ s" 
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CRunning.h 



FIG. 2C 



II CRunning.h : Declaration of the CRunning 
#ifndef_RUNNING_H_ 
#define_RUNNING_H_ 

#include "resource. h" // main symbols 



1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
II CRunning 

class ATL.NO.VTABLE CRunning : 

public CComObjectRootEx<CComSingleThreadModel>, 

public CComCoClass<CRunning, SCLSID_Running>. 

public IDispatchlmpMRunning. SIID.IRunning. SLIBIO.RUNNINGL i b> . 

public IParseDisplayName 



virtual -CRunning!) 

. ( 

ATLTRACEI TCCRunningO destructor called\n")) : 

) 

DECLARE.REGISTRY.RESOURCEID ( IDR.RUNNING) 
BEGIN.COM.MAP (CRunning) 

COM INTERFACE ENTRY (IRunning) 
COM.INTERFACE.ENRTY (IDispatch) 
COM.INTERFACE.ENTRYdparseDisplayName) 
END COM MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIIUIIIIIIIIHIIIIIIIIIII 
//IParseDisplayName method 

STDMETHODIMP ParseDisplayNamedBindCtx *pbc 



protected: 

const wchat.t* ProglDO ( return L"Running\ ) 
const wchar.t* VersionlndependantProglDO ( return L'Running. 1" ; ) 

// IRunning 
public: 

STOMETHOD(RegisterlnstanceName) (long ICookie) : 

STDMETHOD(UnregisterlnstanceNanie) BSTR bstrltemName, IUnknown » pUnk, long * ICookie) 

)-. 

#endif //.RUNNING.H. 



public: 



CRunning 0 



ATLTRACE (.TCCRunningO constructor called\n")) s 



. LPOLESTR pszDisplayName 
.ULONG *pchEaten 
. IMoniker **pprak0ut 
) : 
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// CRunning.cpp : Impleaentation of (Running 

•include 'stdafx.h' FIG. 2D 

•include "Running. If 
•include "CRunning.h* 

•define 8AD_P0INTER_RETURN ( p) if HPIreturn E.POINTER 

•define BAD POINTER RETURN.OR.ZERO(p) if HPIreturn E.POINTER; else ip = 0 

•define SIZE.OF.STRING(p) !p ? 0 : llrcslenlp) » sizeoftwchar.t)) ♦ sizeoflwchar.tl) 

•define OLE.HAXNAHESIZE 25G 

///////////////////////////////////////////////////////////////////////////// 
// CRunning 

STDHETHODIHP CRunning: :RegistrationInstanceNauelBSTR bstrltemName. IUnknotm » pUnk, long « ICookie) 

1 AFT.HANAGE.STATE(Af xGetStaticHoduleStated ) 

// TOOO: Add your implementation code here 
ATLTRACE(.TCCRunning::RegisterInstanceNanie called\n"l) s 

HRESULT hr = E.FAIL s 

LPRUNNINGOBJECnABLE prot = NULL, 

hr = GetRunningObjectTable(O.Sprot); 
i f ( SUCCEEDED ( hr) ) 

1 LPHONIKER ppmk = NULL; 

hr * CreateltemHoni ker (NULL . bs trl temName . fippmk) ; 
iflSUCCEEDED(hrl) 

hr = prot->Register(0 

.pUnk 
.ppmk 

.(unsigned long «) ICookie 
if (SUCCEEDED(hr) ) ,f 

TRACE! TCCRunningxRegisterlnstanceName register succeeded cookie is to\ 

n'l .(unsigned long«)«lCookie) : 
) 

else 

^ TRACEl.TCCRunning: :RegisterInstanceName register failed to \n'l .hr) ; 
ppDk->Release(); 

1 

else 

j TRACEl.TCCRunning: rRegisterlnstanceName CreateltemHoniker failed to \n") ,hrl ; 
prot->Releaselli 



else 



TRACEl.TCCRunning: :RegisterInstanceName get ROT failed to \n").hr); 



) 

return hr s 

1 

STDHETHODIHP CRunning: :UnregisterInstanceName (long ICookie) 

' AFX.HANAGE.STATE(AfxGetStaticHoduleStatel) ) 

// TOOO: Add your iopleientation code here 
HRESULT hr - E.FAIL 
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., Mr . CRunning.cpp FIG. 2E 

1 LPRUNNINGOBJECTTABLE prot * NULL; 
hr = GetRunningObjectTable(O.Sprot) ; 

iflSUCCEDED(hr)) 
( 

hr = prot->Revoke( (unsigned lorx|) ICookie) ; 

iflSUCCEEDED(hr)) 

( 

igned long) ICookie) TRACEl.TCCRunning: rUnregisterlnstanceName worked for cookie %x \n') , (uns 

else 

I ATLTRACE ( .T I " CRunni ng : :UnregisterInstanceNanie Revoke failed\n") ) ; 



else 



return hr : 



prot->Release() : 

ATLTRACE (.T ( • CRunni ng : : Unregi sterlnstanceName GetROT failed\n"J) : 



STDMETHOOIHP CRunning: :ParseOisplayName( 
IBindCtx* pbc, 
LPOLESTR pwszDisplayName. 
ULONG* pchEaten. 
IMoniker** ppmkOut) 



( 



AFX_MANAGE_STATE ( Af xGetStat icModul eStat e ( ) ) 

ATLTRACE ( .T ( " CRunni ng : :ParseDisplayName() with XS/n') .pwszDisplayName) ; 

BAD.POINTER.RETURN.OR.ZERO(ppiskOut) ; 
BAD POINTER RETURN OR ZERO(pchEaten) : 
BAD POINTER.RETURN(pbc) : 
BAD.POINTER.RETURNIpwszDisplayNaine) : 
BAD.POINTER.RETURN(pchEaten) 

ATLTRACE(.T('CRunning::ParseDisplayNaine() pointers 0K!\n')) ; 
HRESULT hr =E_FAIL ; 

// set to max for now 

// need to change to fit HkParseEx 

if (ipvszOisplayName LT) 

* pchEaten = wcslen(L'IRunning') ; 

else 

* pchEaten = wcslen(L'Running') : 
// as far as i have been able to find oud 
// NkParse will pass the I, wrong!! 

// oh no!!! HkParseEx doesn't pass the I!! 
// we've got to fix this, so let's look for ":" 

wchar.t § pwszlnstance = wschr tpwszDisplayName.L' : ') : 

// do we have an instance? 

if) pwszlnstance) 

I 

ATLTRACE t _T ( * CRunni ng : : ParseDi sp 1 ayName ( ) instance name XS/n') .pwszlnstance): 

WCHAR szItefflName (OLE.MAXNAMESIZE) : 

LPWSTR IpszOest = szIteoName; 

LPWSTR IpszSrc = pwszlnstance; 

int cEaten = 0 : 
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CRunning.cpp 
// eat delimiter characters until next token 
while (ilpszSrc != L'UTSS I'lpszSrc == L , \\'|| WpszSrc == LT || 

«lpszSrc == L ':' || ilpszSrc == LT || ilpszSrc == L '(')) FIG. 2F 

♦♦IpszSrc; 
♦♦cEaten ; 

1 

// parse next token in szItemNase 

while («lpszSrc != L'\0' SS ilpszSrc != L'W SS ilpszSrc != LT SS 

dpszSrc != LV SS ilpszSrc != L'!' SS ilpszSrc !« LT SS 
cEaten < OLE MAXNAHESIZE-1) 

( 

*lpszDest*+ = ilpszSrc**; 
I HcEaten : 

«pchEaten ♦= cEaten : 

«lpszDest = 0; 

// find the running object 

LPRUNNINGOBJECTTABLE prot - NULL; 

LPENMHONIKER penum * NULL; 

LPHONIKER ppmk = NULL; 

hr = CreateltemHonikerlNULL.szIteoiNaiiie.SppDik); 

ATLTRACE ( _T ( * CRunni ng : : ParseD i sp 1 ayName ( ) CreateltemHoniker Xx\n') .hr) : 

if (SUCCEEDED Ihr) I 

' . // look in the running object table to find the gizmo 
// since we are a moniker provider we can t use 
// the bind context to get the ROT 
hr = GetRunningObjectTablelO, Sproth 

ATLTRACE! TCCRunning: :ParseDisplayName() GetRunningObjectTable Xx\n*l ,hr) ; 
if (SUCCEEDEO(hr)) 

I hr = prot->EnumRunning(Spenum); 

ATLTRACE! TCCRunning: :ParseDisplayName() EnumRunning Xx\n") ,hr) ; 
iflSUCCEEDED(hr)) 

1 IHoniker i ppmkTest « NULL; 
IHoniker i ppmkResult « NULL; 
IUnknown • pUnk = NULL; 

BOOL bFound ■ FALSE; 

while! (penum->Nextll. SppmkTest, NULL) == S.OK) SSI! bFound)) 

' hr = ppmk->IsEqual (ppmkTest) ; 
if Ihr == S.OK) // not SUCCEEDED!! 

' TRACE ( .T ( " CRu nni ng : : ParseD i sp 1 ayName ( ) we found it\n , )) J 
bFound = TRUE; 

hr = prot->GetObject (ppmkTest, SpUnk) ; 
if (hr - S.OK) // not SUCCEEDED!! 

1 TRACE ( .T ( • CRu nni fig : : ParseD i sp 1 ayName ( ) we got it') ') : 
hr = CreatePointerHoniker (pUnk, SppmkResultl; 
if(SUCCEEDEDthr)) 

' TRACE ( _T ( "CRunni rig : : ParseDi sp layName ( ) created pointer moniker\n')); 
IParseDisplayName • pParse = NULL; 

IHonikerpItem Moniker = NULL; 

ULONG ucEaten 



0 



FIG. 2G 
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CRunning.cpp 



s correct 
s to with it 



( I ID_ IPa r s eD i sp 1 a y Name . (void xilSParseh 

eDi spl ayName ( pbc . IpszSrc.fiucEaten. SpItemMonikerl ; 

♦= ucEaten : 

Result->ComposeWith{pItemMoniker. FALSE, ppmkOutl; 
DED(hr) ) 

: RACE ( _T ( * CRunni ng : : ParseD i spl ayName ( ) It worked! ! !\n") » : 
/ we can release the constituant elements 
/ of the composite 
pmkResult->Release() : 

succeed or fail we can release the 
oniker 

ker->Release() ; 



// we'll give him the part that i 
// and he can do whatever he want 

xppnkOut = ppmkResult ; 

// is there any string to parse? 
ifl.lpszSrc != HO') 

hr = pUnk->QueryInterface 
if (SUCCEEDED(hr)) 



( 



hr = t pParse->Pars 

if (SUCCEEDED(hr)) 
( 

- *pchEaten 
hr = ppmk 

SiflSUCCEE 
( 

T 
/ 
/ 
P 

) 

// if we 
// item m 
pltemMomi 



) 

pParse->Release() 



) 

return hr ; 



) 



) 



pprakTest->Release(); 

) 

if (lbFound) 

' hr E.FAIL: 
) 

penuiB->Release(); 



) 

prot->Release() ; 
->Release() ; 
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FIG. 4 



LOCATE SERVER IN 
ROT STEP S400 




QUERY IParseDisplayName 
STEP S402 



I 



CREATE POINTER MONIKER 
STEP S404 



CALL ParseDisplayName 
USING "VARIABLES' ITEM 
NAME STEP S40B 




CREATE ITEM MONIKER 
STEP S408 



I 



CALL ParseDisplayName 
USING 'Imtr NAME 
STEP S410 



I 



CALL BIND OPERATION WITH 
LEFTMOST MONIKER 
STEP S412 



/ 



